Amiga Collections: Software of the Month Club/Amiga General Interest Volume 216 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].zip/Amiga General Interest Volume 216 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].adf/install

Text File | 1995-09-11 | 4KB | 176 lines

(SET @default-dest "Sys:")
(SET default_lang 0)

(SET #needKick ("\n'Iconian' needs Kickstart Version 39 at least." ) )

(SET #startMsg ("\nWelcome to 'Iconian'\n\nThis script installs 'Iconian' on your Amiga.\n") )

(SET #destPrompt "Please choose the destination directory for 'Iconian'.\nA drawer will NOT be created.")

(SET #copyPFiles "Copying program files...")

(SET #DocPrompt "Select the directory for the documentation file.")

(SET #exitMsg ("Hope you enjoy using 'Iconian'.") )


(if (< (/ (GETVERSION) 65536) 39)
    (ABORT #needKick)
)

(MESSAGE #startMsg)

(SET @default-dest
    (ASKDIR (PROMPT  #destPrompt)
            (HELP    askdir-help)
            (DEFAULT @default-dest )))

(COPYFILES (SOURCE "Iconian")
           (HELP copyfiles-help)
           (DEST @default-dest )
           (INFOS)
)

(SET @DocDir
    (ASKDIR (PROMPT  #DocPrompt)
            (HELP    askdir-help)
            (DEFAULT "Help:")
            (NEWPATH)
    )
)


(COPYFILES (SOURCE "Iconian_help.guide")
           (DEST   @DocDir)
           (HELP copyfiles-help)
           (INFOS)
)

(set classdir @default-dest)
(set gaddir (tackon @default-dest "gadgets"))

(set foundclass 0)
(if (exists "classes:" (NOREQ))
    (
        (set foundclass 1)
         (set classdir "classes:")
         (set gaddir "classes:gadgets")
    )
)
(if (= foundclass 0)
    (if (exists "sys:classes" (NOREQ))
        (
            (set foundclass 1)
          (set classdir "sys:classes")
          (set gaddir "sys:classes/gadgets")
      )
    )
)
(if (= foundclass 0)
    (
        (if (exists "libs:classes" (NOREQ))
            (
                (set classdir "libs:classes")
                (set gaddir "libs:classes/gadgets")
            )
        )
    )
)
(set chunky (tackon classdir "chunkyimage.class"))
(set gauge (tackon classdir "gaugeimage.class"))
(set popup (tackon gaddir "popup.gadget"))

(set neednew 1)
(if (exists chunky (NOREQ))
    (
        (set existvernum (getversion chunky))
        (set newvernum (getversion "classes/chunkyimage.class"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing chunkyimage.class is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the chunkyimage.class is already installed on your system.  Selecting Yes to overwrite the existing class may cause incompatibilities with other programs that rely on chunkyimage.class.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "classes/chunkyimage.class")
        (HELP copyfiles-help)
      (DEST classdir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists gauge (NOREQ))
    (
        (set existvernum (getversion gauge))
        (set newvernum (getversion "classes/gaugeimage.class"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing gaugeimage.class is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the gaugeimage.class is already installed on your system.  Selecting Yes to overwrite the existing class may cause incompatibilities with other programs that rely on gaugeimage.class.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "classes/gaugeimage.class")
        (HELP copyfiles-help)
      (DEST classdir)
      (INFOS)
        )
    )
)

(set neednew 1)
(if (exists popup (NOREQ))
    (
        (set existvernum (getversion popup))
        (set newvernum (getversion "gadgets/popup.gadget"))
        (if (< newvernum existvernum)
            (
                (if    (NOT (askbool
                                        (prompt ("The existing popup.gadget is a newer version.\n\nDo you wish to replace it?"))
                                        (default 0)
                                        (help "A newer revision of the popup.gadget is already installed on your system.  Selecting Yes to overwrite the existing gadget may cause incompatibilities with other programs that rely on popup.gadget.")
                        )
                    )
                    (
                        (set neednew 0)
                    )
                )
            )
        )
    )
)
(if (= neednew 1)
    (
        (COPYFILES (SOURCE "gadgets/popup.gadget")
        (HELP copyfiles-help)
      (DEST gaddir)
      (INFOS)
        )
    )
)
(Exit #exitMsg)